EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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LL III] BBBBBBEB MM MM AA TTTTTT 

LL 1111 BBBBBBBB MM MM AAAAAA TTTTTT 

LL I] BB BB MMMM MMMM AA ‘lal TT cc HH HH CC 

LL I] BB BB MMMM MMMM AA Ab TT cc HH HH CC 

LL I] BB BB MM MM AA Aa TT CC HH HH CC 

LL I] BB BB MM MM MM AA AA TT cc HH HH CC 

LL II BBBBBBBB MM MM AA AA TT CC HHHHHHHHHH = CC 

LL I] BB MM MM AA ab TT CC HHHHHHHHHH = CC 

LL II BB BB MM MM AAAAAAAAAA TT cc HH HH CC 

LL I] BB BB MM MM AAAAAAAAAA TT cc HH HH CC 

LL II BB BB MM MM AA AA TT cc HH HH CC cove 
LL I] BB BB MM MM AA Ag TT cc HH HH (CC cece 
LLLLLLLLLL III BBBBBBBB MM MM AA AA TT Cccccccc HH HH cccccccc cece 
LLLLLLLLLL III1II BBBBBBBB MM MM AA AA TT cccccccc HH HH ccccccce cose 
LL T1111 SSSSSSSS 

LL HII! SSSSSSSS 

LL I] S$ 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III! SSSSSSSS 

LLLLLLLLLL III SSSSSSSS 
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gi DECLARATIONS 
9 LIBSMATCHC = match characters 
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E LISSAATCHC = Match Gherecter 
T /1-007/ 3; File: LIBMATCHC.MAR Edit: RKR1007 


SERRA AAE EAA E AAT AAAAAEAAAAAAAAAEAAAAARAAAARERAAEAAEAEREAAEAETAAEAEAEAAEe 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
e ® 
® # 
® * 
os ® 
® cm 
* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE. TERMS OF SUCH. LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
fe COPIES. THEREOF NAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
© OTHER PERSON. NO TITLE TO AKD OWNERSHIP OF THE SOFTWARE iS” HERESY 
;# TRANSFERRED. . 
-* w 
j# THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. * 
:* ® 
-® ® 
:® t 
** * 
*® ® 
* ® 


DIGITAL ASSUMES NO RESPONS wi 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR _ RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


-RARRARAAAAAAAAAAALARLARA SALAS SEES E LASSER SAR ESSE EEE EERE REESE REE EERE SS 


SOOQOoCoCooOoOoooCooooooooooooooSooe 
Sooo ooooooooooooooooooooooo 


SOOOCOSOSOSOSOSSS MH COCOCOCOCOSOCOCOSSCOOCOCSCSOOOOOCOOOOOOOOOOOOO 


FACILITY: General Utility Library 
ABSTRACT: 

search a string for the first occurrence of a substring 
ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: Donald G. Petersen, CREATION DATE: 03-Jan-78 
MODIFIED BY: 
ty * ci VERSION 00 


- DGP 86-Jan-78 - Change MATCHC operands 
° Dodate,version number and copyright pot tee. JBS 16-NOV-78 
1-206 - Add PSECT directive. S 21-DEC-78 
- Fix so it "‘seoent wipe oe varpunent Fo 
Also clean up code. 
1-004 - Enhance to recognize 7 rit: onal chasees of spring de descriptors 
sag invoking LIBSANALYZE_SDESC_R3 to extract Fogenath 
3 sof Ist byte of data. ~ RKR 128 -MAY-1 
al-case code to gresess string googr totors.! that 
Need *tike fixed strign descriptors. RKR T-1 ° 
1-006 = Redirect gb s roa. Ll SANALYZE_SDESC_R3 to 
I TBSANALYPE 3B RSC. 
RKR 18-NOV-T 


NOU EWN OS OD NAME WIN OOD NAME WIN OS OD NAU EWN OO ODNOAUEWIN OO ONOU SE wr — 


SOOOOCSCOCOCOSOOOOCOOOOSOOSO OOOO SOOOOSCSOSOSOSOSOOSOOSOOOOOOOOOOOOOOOOOOOO 


SOSOOSSCSOOSSOSOSOSOSOOOSOOOSOSOOSOOOOoOoOSoOSSo 


DANAUS BB BEBE ES BWW inononononononononony 2 2 


SOoOOoooooooooooooooooooooooooooo 


9 
bs aa Seeger tipseathpe ee  "—MESEECHRES Q0:UB:48 YAMAUME Maes LOLTOOS wag. P28" 


8008 28 ¢ 1-007 - aS te leks ta tt position -- corrupted in edits 


00000000 
0000 


AAO 
wr 


FU OOONOus 


SN NINA AAA AO 


75 3 
; EQUATED SYMBOLS: NONE 


aracter 
S 


16-SEP-1984 00:13:4 AX/VMS Macro V04-00 
ae 90:03:09 LIBRTL. SRCILIBMATCHC.MAR: 1 


«SBTTL DECLARATIONS 
INCLUDE FILES: NONE 


EXTERNAL SYMBOLS: 
-dS ; Explicit externals only 
-EXTRN LIBSANALYZE_SDESC_R2 3; Extract length and address of 
; Ist data byte 
MACROS: 


SDSCDEF 3; fields in a descriptor 


OWN STORAGE: NONE 


PSECT DECLARATIONS: 
-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 
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IBSMATCHC - Match Character 16-SEP-1984 00:13:4 AX/VMS Macro v04-00 Page 
4-007 LIBSMATCHC = match characters g-SEpa19 4 90:48:69 LIBRTL.SRCJLIBMATCHC.MAR; 1 ’ 
8 $9 a -SBTTL LIBSMATCHC = match characters 
p 4 ; FUNCTIONAL DESCRIPTION: 
38 g The character ow suet ted is searched for the first 
0 94 ; incidence of the substring specified. An index is returned 
00 95 ; which is the relative position of the first character of the 
3? 38 ; substring within the string or zero if no occurrence of the 
0 97 ; substring was encountered. If both strings have 
00 98 ; zero length or if the substr ng has a zero length, then the 
000 99 ; routine returns as if the substring has been found at the 
44 1 9 : irst character position. If the source string has a zero 
101 ; length and the substring a non-zero length, then a zero is 
4 1 ¢ 3 returned. 
000 103 ; 
0000 133 ; CALLING SEQUENCE: 
000 106 : index.wlu.v = LIBSMATCHC(sub_str.rt.ax,string.rt.dx) 
0000 109 : 7 : 
0000 108 
0000 109 ; INPUT PARAMETERS: 
00000006 $000 111° b_string = 4 Adr of substring d 
sub_string = ; Adr of substring desc 
00000008 464 \i¢ sre“string = 8 ; Adr of src atrine desc 
0000 114 ; IMPLICIT INPUTS: 
0000 115; 
0000 116; NONE 
0000 117; 
0000 118 ; OUTPUT PARAMETERS: 
0000 119; 
0000 120; NONE 
0000 121; 
0000 1 § 3 IMPLICIT OUTPUTS: 
0000 123; 
0000 124 ; NONE 
0000 125; 
0000 1 § 3; FUNCTION VALUE: 
0000 127 ; : : ; 
0000 128 ; index.wlu.v - Position of substring in source, or zero 
0000 129 ; f no match. 
0000 130; 
0000 131 ; SIDE EFFECTS: 
8888 1 § 3 
00 133 ; NONE 
4 134 ; 
000 135 ;-- 
it 138 
007C¢ 4 13 ENTRY LIBSMATCHC , “M<R2, R3, R4, RS, RO> ; Entry point 
50 04 AC 00 $05 139 MOVL SUB_STRING(AP), RO ; Address of sub_string descr. 
02 03 a0 91 0006 140 CMPB = DSCSB_CLASS(ROS, #DSCSK_CLASS_D ; read LTke fixed ? 
1A - 141 BGTRU 3 no 
54 04 8C 7D 146 MOVQ @SUB_STRINGCAP), R4 : Lenght->R4, address->R5 
11 : 137 BRB 2$ : join common flow 
00000000'GF 16 61 145 1$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: length->R1, addr->R2 


IBSMATCHC = Match Character 16-SEP-1984 00:13:4 AX/VMS Macro V04-00 Page 
5-007 LIBSMATCHC = match characters gree 1 bbe ° :09:0 YOR TL. SRESLIBMATCHC.MAR: 1 : & 
4 oe 2 18 14 MOVZWL R1, R4 3; save sub_string length 
23 3) D6 oie 163 MOVL R2, RS 3; save sub-string ederess | 
50 68 ~ 9 0 149 2$ MOVL SRC_STRING(AP), RO ; Address of src_string descr. 
02 A 1 150 CMPB DSCSB_CLASS(ROS , MDSCSK_CLASS_D ; read [Tke fixed ? 
06 1A 00 151 BGTRU 38 ; no | 
51 08 BC 70 13 MOVQ @SRC_STRING(AP), R1 3 length=>R1, address->R2 
06 11 0 ¢ 122 BRB 4$ ; join commmon flow 
are 16 O02E 155 3$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: ie hae pb addr->R2 | 
6 1 3c 00 3 138 4$: MOVZWL R1, R6 3; save src_string length 
> Be: ee eS 6 7 138 MATCHC RG, (R5), RI, (R2) 3 find sub string in src_string | 
Onge 159 ; State of regs after a MATCHC instr. | 
Q003C 160 ; RO = If match occurred, 0,. : | 
003C 161 : else number of bytes in object 
003C 16¢ ; string. 
003C 16 ; R1 = If match occurred, the address of 
003C 164 : one byte beyond the object 
003C 165 ; string, 
003C 166 3 else address of the object string 
003C 167 ; R2 = If match occurred, the number of 
003C 168 : bytes remaining at the source 
003C 169 3 string after the match, 
003C 170 ; else 
003C 171 ; R3 = If match occurred, the address of 
003C 76 : one byte beyond the last byte 
003C 3817 ; matched, 
003C 174 : else address of one byte beyond 
003c 3=—:175 : the source string. 
003C 176 ; 
003C 177 
OD ig 003C 178 BNEQ NOMATCH 3; No match? . 
3 3 SM COA boe5 179 SUBW3 = R4, R6, RO ; RO = diff. in string Lengths. 
04 180 ; Has to be non-neg else no match. 
. = 9k 181 MOVZWL RO, RO . 
50 52 C2 004 186 SUBL R2, RO ; Subtract bytes left in source string 
Oe 18 3 giving offset into source. 
50 D6 004 184 INCL RO 3 one origin 
64 Q04A 185 RET 
0048 186 
0048 187 NOMATCH: 
50 04 0948 188 CLRL RO : Indicate no match 
4 pped 189 ET 
O4E 190 | 
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LIBSMATCHC = Match Character i at Se 9 00: 13:46 wl dig Macro V04-00 Page g | 
Symbol table 6-SEP=-1984 11:09:0 LIBRTL.SRCJLIBMATCHC.MAR; 1 ( )| 
DSC$B_CLASS = 
DSCSENCtASS_ = ognbbo8 | 
LIBSANALYZE"SDESC_R2 aerereee =X 
LIBSMATCHC 000000 RG 
ATCH 8 rH R 

SRC_STRING = 8 
SUB_STRING = 00000004 | 

teow omen emer nrean on} 

! Psect synopsis ! 

deme stocoeaneanacan + 
PSECT name Allocation PSECT No. Attributes 
. ABS . 00000000 < 0.) OO ¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 00000000 3 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
_LIBSCODE QOOO004E ( 78.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

tee reweceeeo eee see ecw ecoe Sa 
; Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 31 88:80:80 -0 00:00:02.73 
Command processing 109 00:00:00.30 BO: 8 86 «Be 
Pass 131 00:00:01.09 00:00:07.00 
Symbol table sort 0 00:00:00.10 00:00:00.35 
Pass 2 48 00:00:00.35 00:00:01.89 
Symbol table output 3 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 He 
Assembler run totals 326 00:00:01.89 00:00:14.6 


The working set Limit was 1050 pages. 
8372 bytes (17 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 136 non-local and 4 local symbols. 
190 source Lines were read in Pass 1, oroguc ing object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


ee oe 


Macro Library name Mocros defined 
_$255SDUA28: (SYSLIBJSTARLET .MLB; 2 narra is 
190 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 


tewm nero r eer eee ee eee eee er ere + 
: Macro Library statistics ! | 
| 
| 
| 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBMATCHC/OBJ=0BJ$:LIBMATCHC MSRC$:LIBMATCHC/UPDATE=(ENHS$:LIBMATCHC) 

| 
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